home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_023_19xx_-_de_Side_A.d64 / disk-tools v3.0 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  102 lines
  1. 10 rem disk-uttilitys
  2. 15 print"[147]"
  3. 20 poke53280,0:poke53281,0:print"[158]"
  4. 25 print"[145][145]         disk-uttilitys v1.0            "
  5. 26 print"copyright  1992"
  6. 27 print"(c)by minnesota"
  7. 30 print"formatieren"
  8. 31 print"directory"
  9. 33 print"quit"
  10. 34 get a$
  11. 35 if a$=chr$(13)then100
  12. 36 if a$=""then38
  13. 37 if a$<>""then34
  14. 38 print"formatieren"
  15. 39 print" directory "
  16. 40 get b$
  17. 45 if b$=chr$(13)then 50
  18. 46 if b$="[145]"then51
  19. 47 if b$=""then54
  20. 48 if b$<>""then40
  21. 50 gosub 11000
  22. 51 print" directory "
  23. 52 print"formatieren"
  24. 53 goto 34
  25. 54 print" directory "
  26. 55 print"   quit    "
  27. 56 get c$
  28. 57 if c$=chr$(13)then60
  29. 58 if c$="[145]"then61
  30. 59 if c$<>"[145]"then56
  31. 60 sys64738
  32. 61 print"   quit    "
  33. 62 print" directory "
  34. 63 goto40
  35. 100 rem formatieren
  36. 110 print"[147]":print"sind sie sicher?"
  37. 111 get d$
  38. 115 if d$="j"then120
  39. 116 if d$="n"then10
  40. 117 if d$<>"n"then111
  41. 120 print"bitte zu formatierende diskette einlegen"
  42. 121 get f$
  43. 122 if f$=""then 121
  44. 123 print"die diskette wird jetzt formatiert!!!!! "
  45. 124 print"dauer:ungefaehr 90 sek."
  46. 125 open 1,8,15,"n:test,id"
  47. 126 input"name der diskette:";a$
  48. 127 close 1:open 1,8,15,"n:"+a$:close 1
  49. 133 print"noch einmal?"
  50. 134 get g$
  51. 135 if g$="j"then100
  52. 136 if g$="n"then10
  53. 137 if g$<>"n"then134
  54. 1000 rem dir
  55. 11000 r=-1
  56. 11010 t$(0)="del"
  57. 11020 t$(1)="seq"
  58. 11030 t$(2)="prg"
  59. 11040 t$(3)="usr"
  60. 11050 t$(4)="rel"
  61. 11060 open 1,8,15
  62. 11070 open 2,8,2,"#"
  63. 11080 print"[147]typ    name             laenge[146]"
  64. 11090 s=1
  65. 11100 print#1,"u1:"2;0;18;s
  66. 11110 get#2,t$,s$
  67. 11120 s$=s$+chr$(0)
  68. 11130 t$=t$+chr$(0)
  69. 11140 s=asc(s$)
  70. 11150 e=1
  71. 11160 print#1,"b-p";2;2+(e-1)*32
  72. 11170 a$=a$+chr$(0)
  73. 11180 get#2,a$
  74. 11190 a$=a$+chr$(0)
  75. 11200 if asc(a$)<128 and asc(t$)=0 then 11390
  76. 11210 if asc(a$)>127 then print t$(asc(a$)-128)"    ";
  77. 11220 print#1,"b-p";2;5+(e-1)*32
  78. 11230 n$=""
  79. 11240 for a=1to16
  80. 11250 get#2,b$
  81. 11260 n$=n$+b$
  82. 11270 next a
  83. 11280 print n$"   ";
  84. 11290 print#1,"b-p";2;30+(e-1)*32
  85. 11300 get#2,a$,b$
  86. 11310 a$=a$+chr$(0):b$=b$+chr$(0)
  87. 11320 l=asc(a$)+256*asc(b$)
  88. 11330 print l
  89. 11340 e=e+1
  90. 11350 if e<9 then 11160
  91. 11360 e=0
  92. 11370 if asc(t$)=0then 11390
  93. 11380 goto 11100
  94. 11390 close 2
  95. 11400 close 1
  96. 11410 get a$
  97. 11420 if a$=chr$(13)then10
  98. 11430 if a$="_"then10
  99. 11440 if a$=" "then10
  100. 11450 if a$=""then 10
  101. 11460 if a$<>""then11410
  102.